<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Paver Lighting, LLC
<%'Get Image Path If Request.QueryString("passFolder") = "" THEN psFolder = "/Portfolio/" & "001/" passFolder = "001" Else psFolder = "/Portfolio/" & Request.QueryString("passFolder") &"/" passFolder = Request.QueryString("passFolder") End if %>
<% If Request.QueryString("passFolder") = "001" OR Request.QueryString("passFolder") = "000" THEN %> PHOTO GALLERY - PAVER LIGHTS <% Else %> PHOTO GALLERY -
DECK AND DOCK LIGHTS <% End if %>

<%'Get Image Files Whichfolder=server.mappath("\") & psFolder Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") DirExists = fs.folderexists(WhichFolder) FileCount = 0 If DirExists = "True" THEN Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc rLine = f1.name FilePath = psFolder FilePath = FilePath & rLine FileCount = FileCount + 1 'Response.Write(rLine + "
") If FileCount = 1 THEN %>

View by Thumbnails

 

Site Designed and Maintained by Art and Soul Graphics